SuperHack

home *** CD-ROM | disk | FTP | other *** search

/ SuperHack / SuperHack CD.bin / CODING / DELPHI / CC32.ZIP / UNDOMEMO.CD < prev

Wrap

INI File | 1996-01-18 | 4.5 KB | 360 lines

[MainInfo$] CCVer=2.0 Compatible20=1 UnitName=UndoMemo NewClassName=TUndoMemo ParentClassName=TMemo DefaultPalette=Standard CopyrightLine=A public domain component FormMode=0 FormFile= [Units$] Lines=10 L1=WinTypes L2=WinProcs L3=Messages L4=SysUtils L5=Classes L6=Controls L7=Forms L8=Graphics L9=Stdctrls L10=Clipbrd [ItemList$] Create=Method Destroy=Method OnClick=ExistingEvent OnDblClick=ExistingEvent OnDragDrop=ExistingEvent OnMouseDown=ExistingEvent OnMouseMove=ExistingEvent OnMouseUp=ExistingEvent OnKeyUp=ExistingEvent OnKeyDown=ExistingEvent OnKeyPress=ExistingEvent OnEnter=ExistingEvent OnExit=ExistingEvent CanUndo=Property CanPaste=Property CanCutCopy=Property Undo=Method [Global$] Descr=TMemo with undo DefaultCode=1 [Code$] Lines=0 [Help$] Lines=0 [Create] Descr= DefaultCode=2 Kind=2 Header=Create(AOwner: TComponent) S=0 Ov=1 WinMessage= [CreateCode$] Lines=7 L1=begin L2=~~~~~inherited Create(AOwner); L3=~~~~~AutoInitialize; L4= L5=~~~~~{ Code to perform other tasks when the component is created } L6= L7=end; [CreateHelp$] Lines=0 [Destroy] Descr= DefaultCode=4 Kind=3 Header=Destroy S=0 Ov=1 WinMessage= [DestroyCode$] Lines=4 L1=begin L2=~~~~~AutoDestroy; L3=~~~~~inherited Destroy; L4=end; [DestroyHelp$] Lines=0 [OnClick] Descr= DefaultCode=7 Ov=0 P=1 HandlerDecl=Click [OnClickCode$] Lines=4 L1=begin L2=~~~~~{ Call method of parent class } L3=~~~~~inherited Click; L4=end; [OnClickHelp$] Lines=0 [OnDblClick] Descr= DefaultCode=8 Ov=0 P=1 HandlerDecl=DblClick [OnDblClickCode$] Lines=0 [OnDblClickHelp$] Lines=0 [OnDragDrop] Descr= DefaultCode=13 Ov=0 P=1 HandlerDecl=DragDrop(DragObject: TObject; X, Y: Integer) [OnDragDropCode$] Lines=0 [OnDragDropHelp$] Lines=0 [OnMouseDown] Descr= DefaultCode=13 Ov=0 P=1 HandlerDecl=MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer) [OnMouseDownCode$] Lines=0 [OnMouseDownHelp$] Lines=0 [OnMouseMove] Descr= DefaultCode=13 Ov=0 P=1 HandlerDecl=MouseMove(Shift: TShiftState; X, Y: Integer) [OnMouseMoveCode$] Lines=0 [OnMouseMoveHelp$] Lines=0 [OnMouseUp] Descr= DefaultCode=13 Ov=0 P=1 HandlerDecl=MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer) [OnMouseUpCode$] Lines=0 [OnMouseUpHelp$] Lines=0 [OnKeyUp] Descr= DefaultCode=13 Ov=0 P=1 HandlerDecl=KeyUp(var Key: Word; Shift: TShiftState) [OnKeyUpCode$] Lines=0 [OnKeyUpHelp$] Lines=0 [OnKeyDown] Descr= DefaultCode=10 Ov=0 P=1 HandlerDecl=KeyDown(var Key: Word; Shift: TShiftState) [OnKeyDownCode$] Lines=0 [OnKeyDownHelp$] Lines=0 [OnKeyPress] Descr= DefaultCode=9 Ov=1 P=1 HandlerDecl=KeyPress(var Key : Char) [OnKeyPressCode$] Lines=13 L1=begin L2=~~~~~{ Define Ctrl-Z as "undo" keystroke } L3=~~~~~if Key = ^Z then L4=~~~~~~~~begin L5=~~~~~~~~{ Undo changes, if any, to memo } L6=~~~~~~~~Undo; L7=~~~~~~~~{ Suppress further processing of the char } L8=~~~~~~~~Key := #0 L9=~~~~~~~~end; L10= L11=~~~~~{ Call method of parent class } L12=~~~~~inherited KeyPress(Key); L13=end; [OnKeyPressHelp$] Lines=0 [OnEnter] Descr= DefaultCode=13 Ov=0 P=1 HandlerDecl=DoEnter [OnEnterCode$] Lines=0 [OnEnterHelp$] Lines=0 [OnExit] Descr= DefaultCode=13 Ov=0 P=1 HandlerDecl=DoExit [OnExitCode$] Lines=0 [OnExitHelp$] Lines=0 [CanUndo] Descr= DefaultCode=6 IN=0 RO=1 PropType=Boolean PropDefault= Quote=0 RM=1 WM=0 Hide=0 DefEdit=1 All=0 EC= EU= Link= [CanUndoCode$] Lines=0 [CanUndoReadCode$] Lines=3 L1=begin L2=~~~~~Result := (Perform(EM_CANUNDO, 0, 0) <> 0) L3=end; [CanUndoHelp$] Lines=0 [CanPaste] Descr= DefaultCode=6 IN=0 RO=1 PropType=Boolean PropDefault= Quote=0 RM=1 WM=0 Hide=0 DefEdit=1 All=0 EC= EU= Link= [CanPasteCode$] Lines=0 [CanPasteReadCode$] Lines=3 L1=begin L2=~~~~~Result := Clipboard.HasFormat(CF_TEXT); L3=end; [CanPasteHelp$] Lines=0 [CanCutCopy] Descr= DefaultCode=6 IN=0 RO=1 PropType=Boolean PropDefault= Quote=0 RM=1 WM=0 Hide=0 DefEdit=1 All=0 EC= EU= Link= [CanCutCopyCode$] Lines=0 [CanCutCopyReadCode$] Lines=3 L1=begin L2=~~~~~Result := (SelLength > 0) L3=end; [CanCutCopyHelp$] Lines=0 [Undo] Descr= DefaultCode=0 Kind=0 Header=Undo S=0 Ov=0 WinMessage= [UndoCode$] Lines=4 L1=begin L2=~~~~~{ Send undo command to Windows } L3=~~~~~Perform(EM_UNDO, 0, 0) L4=end; [UndoHelp$] Lines=0